00100	EXTERNAL STRING SIMPLE PROCEDURE SPS(INTEGER N) ;
00200	
00300	EXTERNAL INTEGER SIMPLE PROCEDURE WHATIS(INTEGER ARRAY A) ;
00400	
00500	EXTERNAL INTEGER SIMPLE PROCEDURE SWHATIS(STRING ARRAY A) ;
00600	
00700	EXTERNAL SIMPLE PROCEDURE GOAWAY(INTEGER I) ;
00800	
00900	EXTERNAL INTEGER SIMPLE PROCEDURE BIGGER(INTEGER PTR, HM) ;
01000	
01100	EXTERNAL INTEGER SIMPLE PROCEDURE SBIGGER(INTEGER PTR, HM) ;
01200	
01300	EXTERNAL INTEGER SIMPLE PROCEDURE CREATE2(INTEGER LB1, UB1, LB2, UB2) ;
01400	
01500	EXTERNAL INTEGER SIMPLE PROCEDURE SCREATE(INTEGER LB1, UB1) ;